home *** CD-ROM | disk | FTP | other *** search
/ Network PC / Network PC.iso / amiga utilities / communication / bbs / termv4.6 / extras / source / term-source.lha / DayPanel.c < prev    next >
Encoding:
C/C++ Source or Header  |  1996-03-18  |  3.7 KB  |  207 lines
  1. /*
  2. **    DayPanel.c
  3. **
  4. **    Editing panel for day of week selection
  5. **
  6. **    Copyright © 1990-1996 by Olaf `Olsen' Barthel
  7. **        All Rights Reserved
  8. */
  9.  
  10. #ifndef _GLOBAL_H
  11. #include "Global.h"
  12. #endif
  13.  
  14. enum    {    GAD_USE=1,GAD_CANCEL,GAD_TEXT };
  15.  
  16. BOOL
  17. DayPanel(struct Window *Parent,struct TimeDateNode *Node)
  18. {
  19.     struct LayoutHandle    *Handle;
  20.     struct TimeDateNode     LocalNode;
  21.     BOOL             Result = FALSE;
  22.  
  23.     LocalNode = *Node;
  24.  
  25.     if(Handle = LT_CreateHandleTags(Parent -> WScreen,
  26.         LH_LocaleHook,    &LocaleHook,
  27.         LH_ExitFlush,    FALSE,
  28.     TAG_DONE))
  29.     {
  30.         struct Window *PanelWindow;
  31.  
  32.         LT_New(Handle,
  33.             LA_Type,    VERTICAL_KIND,
  34.         TAG_DONE);
  35.         {
  36.             LT_New(Handle,
  37.                 LA_Type,    VERTICAL_KIND,
  38.             TAG_DONE);
  39.             {
  40.                 LT_New(Handle,
  41.                     LA_Type,    VERTICAL_KIND,
  42.                 TAG_DONE);
  43.                 {
  44.                     LONG i;
  45.  
  46.                     for(i = 0 ; i < 7 ; i++)
  47.                     {
  48.                         LT_New(Handle,
  49.                             LA_Type,    CHECKBOX_KIND,
  50.                             LA_LabelID,    MSG_DAYPANEL_MONDAY_GAD + i,
  51.                             LA_ID,        GAD_TEXT + i,
  52.                             GTCB_Checked,    LocalNode . Header . Day & (1L << i),
  53.                         TAG_DONE);
  54.                     }
  55.  
  56.                     LT_EndGroup(Handle);
  57.                 }
  58.  
  59.                 LT_New(Handle,
  60.                     LA_Type,    XBAR_KIND,
  61.                 TAG_DONE);
  62.  
  63.                 LT_New(Handle,
  64.                     LA_Type,    VERTICAL_KIND,
  65.                 TAG_DONE);
  66.                 {
  67.                     LT_New(Handle,
  68.                         LA_Type,    STRING_KIND,
  69.                         LA_LabelID,    MSG_GLOBAL_COMMENT_GAD,
  70.                         LA_STRPTR,    LocalNode . Header . Comment,
  71.                         LA_Chars,    15,
  72.                         GTST_MaxChars,    19,
  73.                     TAG_DONE);
  74.  
  75.                     LT_EndGroup(Handle);
  76.                 }
  77.  
  78.                 LT_EndGroup(Handle);
  79.             }
  80.  
  81.             LT_New(Handle,
  82.                 LA_Type,VERTICAL_KIND,
  83.             TAG_DONE);
  84.             {
  85.                 LT_New(Handle,
  86.                     LA_Type,    XBAR_KIND,
  87.                     LAXB_FullSize,    TRUE,
  88.                 TAG_DONE);
  89.  
  90.                 LT_EndGroup(Handle);
  91.             }
  92.  
  93.             LT_New(Handle,LA_Type,HORIZONTAL_KIND,
  94.                 LAGR_SameSize,    TRUE,
  95.                 LAGR_Spread,    TRUE,
  96.             TAG_DONE);
  97.             {
  98.                 LT_New(Handle,
  99.                     LA_Type,    BUTTON_KIND,
  100.                     LA_LabelID,    MSG_GLOBAL_USE_GAD,
  101.                     LA_ID,        GAD_USE,
  102.                     LABT_ReturnKey,    TRUE,
  103.                     LABT_ExtraFat,    TRUE,
  104.                 TAG_DONE);
  105.  
  106.                 LT_New(Handle,
  107.                     LA_Type,    BUTTON_KIND,
  108.                     LA_LabelID,    MSG_GLOBAL_CANCEL_GAD,
  109.                     LA_ID,        GAD_CANCEL,
  110.                     LABT_EscKey,    TRUE,
  111.                     LABT_ExtraFat,    TRUE,
  112.                 TAG_DONE);
  113.  
  114.                 LT_EndGroup(Handle);
  115.             }
  116.  
  117.             LT_EndGroup(Handle);
  118.         }
  119.  
  120.         if(PanelWindow = LT_Build(Handle,
  121.             LAWN_TitleID,        MSG_DAYPANEL_DAY_SETTINGS_TXT,
  122.             LAWN_IDCMP,        IDCMP_CLOSEWINDOW,
  123.             LAWN_HelpHook,        &GuideHook,
  124.             LAWN_Parent,        Parent,
  125.             WA_DepthGadget,        TRUE,
  126.             WA_CloseGadget,        TRUE,
  127.             WA_DragBar,        TRUE,
  128.             WA_RMBTrap,        TRUE,
  129.             WA_Activate,        TRUE,
  130.             WA_SimpleRefresh,    TRUE,
  131.         TAG_DONE))
  132.         {
  133.             struct IntuiMessage    *Message;
  134.             BOOL             Done = FALSE;
  135.             ULONG             MsgClass;
  136.             UWORD             MsgCode;
  137.             struct Gadget        *MsgGadget;
  138.  
  139.             GuideContext(CONTEXT_DAY);
  140.  
  141.             LT_ShowWindow(Handle,TRUE);
  142.  
  143.             PushWindow(PanelWindow);
  144.  
  145.             do
  146.             {
  147.                 if(Wait(PORTMASK(PanelWindow -> UserPort) | SIG_BREAK) & SIG_BREAK)
  148.                     break;
  149.  
  150.                 while(Message = (struct IntuiMessage *)LT_GetIMsg(Handle))
  151.                 {
  152.                     MsgClass    = Message -> Class;
  153.                     MsgCode        = Message -> Code;
  154.                     MsgGadget    = (struct Gadget *)Message -> IAddress;
  155.  
  156.                     LT_ReplyIMsg(Message);
  157.  
  158.                     if(MsgClass == IDCMP_CLOSEWINDOW)
  159.                         Done = TRUE;
  160.  
  161.                     if(MsgClass == IDCMP_GADGETUP)
  162.                     {
  163.                         switch(MsgGadget -> GadgetID)
  164.                         {
  165.                             case GAD_USE:
  166.  
  167.                                 LT_UpdateStrings(Handle);
  168.  
  169.                                 *Node = LocalNode;
  170.  
  171.                                 Result = Done = TRUE;
  172.  
  173.                                 break;
  174.  
  175.                             case GAD_CANCEL:
  176.  
  177.                                 Done = TRUE;
  178.                                 break;
  179.  
  180.                             default:
  181.  
  182.                                 if(MsgGadget -> GadgetID >= GAD_TEXT && MsgGadget -> GadgetID < GAD_TEXT + 7)
  183.                                 {
  184.                                     LONG Index = MsgGadget -> GadgetID - GAD_TEXT;
  185.  
  186.                                     if(MsgCode)
  187.                                         LocalNode . Header . Day |= (1L << Index);
  188.                                     else
  189.                                         LocalNode . Header . Day &= ~(1L << Index);
  190.                                 }
  191.  
  192.                                 break;
  193.                         }
  194.                     }
  195.                 }
  196.             }
  197.             while(!Done);
  198.  
  199.             PopWindow();
  200.         }
  201.  
  202.         LT_DeleteHandle(Handle);
  203.     }
  204.  
  205.     return(Result);
  206. }
  207.